perm filename EINIT2.LST[EAL,HE] blob
sn#708978 filedate 1983-04-29 generic text, type T, neo UTF8
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 1
1 000000 AC0=R0
2 000001 AC1=R1
3 000002 AC2=R2
4 000003 AC3=R3
5 000004 AC4=R4
6 000005 AC5=R5
7
8 .TITLE EINIT2
9 .GLOBL $RESR6, $FILE
10 .GLOBL $RESR5
11 000014 $VER==12.
12
13 000000 .PSECT GLOBAL,D,OVR,GBL
14 000000 005660' $G$: .=.+5660
15
16 000000 .PSECT TABLES,D,OVR,GBL
17 000000 001001 $BITS: .WORD 1001
18 000002 004004 .WORD 4004
19 000004 020020 .WORD 20020
20 000006 100100 .WORD 100100
21 000010 000001 .WORD 1
22 000012 000002 .WORD 2
23 000014 000004 .WORD 4
24 000016 000010 .WORD 10
25 000020 000020 .WORD 20
26 000022 000040 .WORD 40
27 000024 000100 .WORD 100
28 000026 000200 .WORD 200
29 000030 000400 .WORD 400
30 000032 001000 .WORD 1000
31 000034 002000 .WORD 2000
32 000036 004000 .WORD 4000
33 000040 010000 .WORD 10000
34 000042 020000 .WORD 20000
35 000044 040000 .WORD 40000
36 000046 100000 .WORD 100000
37
38 000000 .PSECT CONSTS,D,CON,LCL
39 000000 $CONST:
40 000000 044504 .WORD 44504
41 000002 042515 .WORD 42515
42 000004 051516 .WORD 51516
43 000006 047511 .WORD 47511
44 000010 046116 .WORD 46116
45 000012 051505 .WORD 51505
46 000014 020123 .WORD 20123
47 000016 020040 .WORD 20040
48 000020 020040 .WORD 20040
49 000022 020040 .WORD 20040
50 000024 047101 .WORD 47101
51 000026 046107 .WORD 46107
52 000030 020105 .WORD 20105
53 000032 020040 .WORD 20040
54 000034 020040 .WORD 20040
55 000036 044504 .WORD 44504
56 000040 052123 .WORD 52123
57 000042 047101 .WORD 47101
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 1-1
58 000044 042503 .WORD 42503
59 000046 020040 .WORD 20040
60 000050 044524 .WORD 44524
61 000052 042515 .WORD 42515
62 000054 020040 .WORD 20040
63 000056 020040 .WORD 20040
64 000060 020040 .WORD 20040
65 000062 047506 .WORD 47506
66 000064 041522 .WORD 41522
67 000066 020105 .WORD 20105
68 000070 020040 .WORD 20040
69 000072 020040 .WORD 20040
70 000074 047524 .WORD 47524
71 000076 050522 .WORD 50522
72 000100 042525 .WORD 42525
73 000102 020040 .WORD 20040
74 000104 020040 .WORD 20040
75 000106 042526 .WORD 42526
76 000110 047514 .WORD 47514
77 000112 044503 .WORD 44503
78 000114 054524 .WORD 54524
79 000116 020040 .WORD 20040
80 000120 047101 .WORD 47101
81 000122 052507 .WORD 52507
82 000124 040514 .WORD 40514
83 000126 057522 .WORD 57522
84 000130 042526 .WORD 42526
85 000132 047514 .WORD 47514
86 000134 044503 .WORD 44503
87 000136 054524 .WORD 54524
88 000140 020040 .WORD 20040
89 000142 020040 .WORD 20040
90 000144 020122 .WORD 20122
91 000146 020040 .WORD 20040
92 000150 020040 .WORD 20040
93 000152 020040 .WORD 20040
94 000154 020040 .WORD 20040
95 000156 040507 .WORD 40507
96 000160 046522 .WORD 46522
97 000162 020040 .WORD 20040
98 000164 020040 .WORD 20040
99 000166 020040 .WORD 20040
100 000170 040507 .WORD 40507
101 000172 046522 .WORD 46522
102 000174 042537 .WORD 42537
103 000176 051122 .WORD 51122
104 000200 051117 .WORD 51117
105 000202 044107 .WORD 44107
106 000204 047101 .WORD 47101
107 000206 020104 .WORD 20104
108 000210 020040 .WORD 20040
109 000212 020040 .WORD 20040
110 000214 044107 .WORD 44107
111 000216 047101 .WORD 47101
112 000220 057504 .WORD 57504
113 000222 051105 .WORD 51105
114 000224 047522 .WORD 47522
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 1-2
115 000226 040522 .WORD 40522
116 000230 046522 .WORD 46522
117 000232 020040 .WORD 20040
118 000234 020040 .WORD 20040
119 000236 020040 .WORD 20040
120 000240 040522 .WORD 40522
121 000242 046522 .WORD 46522
122 000244 042537 .WORD 42537
123 000246 051122 .WORD 51122
124 000250 051117 .WORD 51117
125 000252 044122 .WORD 44122
126 000254 047101 .WORD 47101
127 000256 020104 .WORD 20104
128 000260 020040 .WORD 20040
129 000262 020040 .WORD 20040
130 000264 044122 .WORD 44122
131 000266 047101 .WORD 47101
132 000270 057504 .WORD 57504
133 000272 051105 .WORD 51105
134 000274 047522 .WORD 47522
135 000276 051104 .WORD 51104
136 000300 053111 .WORD 53111
137 000302 051105 .WORD 51105
138 000304 020040 .WORD 20040
139 000306 020040 .WORD 20040
140 000310 051104 .WORD 51104
141 000312 053111 .WORD 53111
142 000314 051105 .WORD 51105
143 000316 052137 .WORD 52137
144 000320 051125 .WORD 51125
145 000322 051516 .WORD 51516
146 000324 020040 .WORD 20040
147 000326 020040 .WORD 20040
148 000330 020040 .WORD 20040
149 000332 020040 .WORD 20040
150 000334 051104 .WORD 51104
151 000336 053111 .WORD 53111
152 000340 051105 .WORD 51105
153 000342 042537 .WORD 42537
154 000344 051122 .WORD 51122
155 000346 051117 .WORD 51117
156 000350 020040 .WORD 20040
157 000352 020040 .WORD 20040
158 000354 020040 .WORD 20040
159 000356 020040 .WORD 20040
160 000360 051104 .WORD 51104
161 000362 053111 .WORD 53111
162 000364 051105 .WORD 51105
163 000366 052137 .WORD 52137
164 000370 050111 .WORD 50111
165 000372 051104 .WORD 51104
166 000374 053111 .WORD 53111
167 000376 051105 .WORD 51105
168 000400 043537 .WORD 43537
169 000402 040522 .WORD 40522
170 000404 050123 .WORD 50123
171 000406 020040 .WORD 20040
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 1-3
172 000410 020040 .WORD 20040
173 000412 020040 .WORD 20040
174 000414 020040 .WORD 20040
175 000416 044526 .WORD 44526
176 000420 042523 .WORD 42523
177 000422 020040 .WORD 20040
178 000424 020040 .WORD 20040
179 000426 020040 .WORD 20040
180 000430 044526 .WORD 44526
181 000432 042523 .WORD 42523
182 000434 042537 .WORD 42537
183 000436 051122 .WORD 51122
184 000440 051117 .WORD 51117
185 000442 044506 .WORD 44506
186 000444 042530 .WORD 42530
187 000446 057504 .WORD 57504
188 000450 040512 .WORD 40512
189 000452 020127 .WORD 20127
190 000454 047515 .WORD 47515
191 000456 044526 .WORD 44526
192 000460 043516 .WORD 43516
193 000462 045137 .WORD 45137
194 000464 053501 .WORD 53501
195 000466 050123 .WORD 50123
196 000470 042505 .WORD 42505
197 000472 057504 .WORD 57504
198 000474 040506 .WORD 40506
199 000476 052103 .WORD 52103
200 000500 051117 .WORD 51117
201 000502 020040 .WORD 20040
202 000504 020040 .WORD 20040
203 000506 020040 .WORD 20040
204 000510 020040 .WORD 20040
205
206 000000 .PSECT ,I,LCL
207 000000 $CODE:
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 2
209 ;MAKEIDENT
210 000000 P8:
211 000000 162706 000006 SUB #6,SP
212 000004 004767 000000G JSR PC,$B75
213 .GLOBL $B75
214 000010 004767 000000G JSR PC,$B127
215 .GLOBL $B127
216 000014 005746 TST -(SP)
217 000016 004767 000000G JSR PC,NEWIDENT
218 .GLOBL NEWIDENT
219 000022 012666 000014 MOV (SP)+,14(SP)
220 000026 001002 BNE .+6
221 000030 004767 000000G JSR PC,$B47
222 .GLOBL $B47
223 000034 016603 000014 MOV 14(SP),R3
224 000040 005063 000006 CLR 6(R3)
225 000044 005746 TST -(SP)
226 000046 004767 000000G JSR PC,NEWSTRNG
227 .GLOBL NEWSTRNG
228 000052 012605 MOV (SP)+,R5
229 000054 001002 BNE .+6
230 000056 004767 000000G JSR PC,$B47
231 000062 010502 MOV R5,R2
232 000064 062702 000002 ADD #2,R2
233 000070 010601 MOV SP,R1
234 000072 062701 000024 ADD #24,R1
235 000076 012700 000012 MOV #12,R0
236 000102 112122 L32766: MOVB (R1)+,(R2)+
237 000104 077002 SOB R0,L32766
238 000106 010563 000004 MOV R5,4(R3)
239 000112 012763 000012 000002 MOV #12,2(R3)
240 000120 016603 000014 L2: MOV 14(SP),R3
241 000124 016302 000002 MOV 2(R3),R2
242 000130 005302 DEC R2
243 000132 020227 000011 CMP R2,#11
244 000136 101402 BLOS .+6
245 000140 004767 000000G JSR PC,$B43
246 .GLOBL $B43
247 000144 060602 ADD SP,R2
248 000146 126227 000024 000040 CMPB 24(R2),#40
249 000154 001003 BNE L4
250 000156 005363 000002 DEC 2(R3)
251 000162 000756 BR L2
252
253 000164 005766 000014 L4: TST 14(SP)
254 000170 001002 BNE .+6
255 000172 004767 000000G JSR PC,$B47
256 000176 005746 TST -(SP)
257 000200 016603 000016 MOV 16(SP),R3
258 000204 005763 000004 TST 4(R3)
259 000210 001002 BNE .+6
260 000212 004767 000000G JSR PC,$B47
261 000216 016303 000004 MOV 4(R3),R3
262 000222 116303 000002 MOVB 2(R3),R3
263 000226 020327 000177 CMP R3,#177
264 000232 101402 BLOS .+6
265 000234 004767 000000G JSR PC,$B45
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 2-1
266 .GLOBL $B45
267 000240 110346 MOVB R3,-(SP)
268 000242 004767 000000G JSR PC,HASH
269 .GLOBL HASH
270 000246 012604 MOV (SP)+,R4
271 000250 010403 MOV R4,R3
272 000252 020327 000032 CMP R3,#32
273 000256 101402 BLOS .+6
274 000260 004767 000000G JSR PC,$B43
275 000264 006303 ASL R3
276 000266 016376 005014' 000014 MOV $G$+5014(R3),@14(SP)
277 000274 016663 000014 005014' MOV 14(SP),$G$+5014(R3)
278 000302 016666 000014 000036 MOV 14(SP),36(SP)
279 000310 004767 000000G JSR PC,$B77
280 .GLOBL $B77
281 000314 016666 000006 000020 MOV 6(SP),20(SP)
282 000322 062706 000020 ADD #20,SP
283 000326 000207 RTS PC
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 3
285 ;DIMMAKE
286 000330 P9:
287 000330 162706 000006 SUB #6,SP
288 000334 010546 MOV R5,-(SP)
289 000336 010346 MOV R3,-(SP)
290 000340 004767 000000G JSR PC,$B127
291 000344 005746 TST -(SP)
292 000346 012703 000005 MOV #5,R3
293 000352 016646 000026 L32765: MOV 26(SP),-(SP)
294 000356 077303 SOB R3,L32765
295 000360 004767 177414 JSR PC,P8 ;MAKEIDENT
296 000364 012605 MOV (SP)+,R5
297 000366 005746 TST -(SP)
298 000370 004767 000000G JSR PC,NEWVARIDEF
299 .GLOBL NEWVARIDEF
300 000374 012666 000006 MOV (SP)+,6(SP)
301 000400 005705 TST R5
302 000402 001002 BNE .+6
303 000404 004767 000000G JSR PC,$B47
304 000410 016665 000006 000006 MOV 6(SP),6(R5)
305 000416 005746 TST -(SP)
306 000420 004767 000000G JSR PC,NEWNODE
307 .GLOBL NEWNODE
308 000424 012666 000010 MOV (SP)+,10(SP)
309 000430 001002 BNE .+6
310 000432 004767 000000G JSR PC,$B47
311 000436 016603 000010 MOV 10(SP),R3
312 000442 005013 CLR @R3
313 000444 112763 000041 000002 MOVB #41,2(R3)
314 000452 005063 000004 CLR 4(R3)
315 000456 005063 000006 CLR 6(R3)
316 000462 005063 000010 CLR 10(R3)
317 000466 005063 000012 CLR 12(R3)
318 000472 005766 000006 TST 6(SP)
319 000476 001002 BNE .+6
320 000500 004767 000000G JSR PC,$B47
321 000504 016603 000006 MOV 6(SP),R3
322 000510 010563 000004 MOV R5,4(R3)
323 000514 042763 017777 000012 BIC #17777,12(R3)
324 000522 152763 000021 000013 BISB #21,13(R3)
325 000530 016663 000006 000010 MOV 6(SP),10(R3)
326 000536 105063 000007 CLRB 7(R3)
327 000542 016663 000010 000014 MOV 10(SP),14(R3)
328 000550 005063 000002 CLR 2(R3)
329 000554 016666 000006 000026 MOV 6(SP),26(SP)
330 000562 012603 MOV (SP)+,R3
331 000564 012605 MOV (SP)+,R5
332 000566 016666 000006 000020 MOV 6(SP),20(SP)
333 000574 062706 000020 ADD #20,SP
334 000600 000207 RTS PC
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 4
336 ;IDMAKE
337 000602 P10:
338 000602 024646 CMP -(SP),-(SP)
339 000604 004767 000000G JSR PC,$B75
340 000610 004767 000000G JSR PC,$B127
341 000614 005746 TST -(SP)
342 000616 012703 000005 MOV #5,R3
343 000622 016646 000042 L32764: MOV 42(SP),-(SP)
344 000626 077303 SOB R3,L32764
345 000630 004767 177144 JSR PC,P8 ;MAKEIDENT
346 000634 012605 MOV (SP)+,R5
347 000636 005746 TST -(SP)
348 000640 004767 000000G JSR PC,NEWVARIDEF
349 .GLOBL NEWVARIDEF
350 000644 012666 000016 MOV (SP)+,16(SP)
351 000650 005705 TST R5
352 000652 001002 BNE .+6
353 000654 004767 000000G JSR PC,$B47
354 000660 016665 000016 000006 MOV 16(SP),6(R5)
355 000666 001002 BNE .+6
356 000670 004767 000000G JSR PC,$B47
357 000674 016603 000016 MOV 16(SP),R3
358 000700 010563 000004 MOV R5,4(R3)
359 000704 116602 000026 MOVB 26(SP),R2
360 000710 020227 000024 CMP R2,#24
361 000714 101402 BLOS .+6
362 000716 004767 000000G JSR PC,$B45
363 000722 142763 000037 000013 BICB #37,13(R3)
364 000730 150263 000013 BISB R2,13(R3)
365 000734 016663 000024 000010 MOV 24(SP),10(R3)
366 000742 105063 000006 CLRB 6(R3)
367 000746 016602 000022 MOV 22(SP),R2
368 000752 020227 000377 CMP R2,#377
369 000756 101402 BLOS .+6
370 000760 004767 000000G JSR PC,$B45
371 000764 110263 000007 MOVB R2,7(R3)
372 000770 142763 000377 000012 BICB #377,12(R3)
373 000776 013713 005230' MOV @#$G$+5230,@R3
374 001002 005063 000002 CLR 2(R3)
375 001006 016637 000016 005230' MOV 16(SP),@#$G$+5230
376 001014 010566 000042 MOV R5,42(SP)
377 001020 004767 000000G JSR PC,$B77
378 001024 016666 000004 000024 MOV 4(SP),24(SP)
379 001032 062706 000024 ADD #24,SP
380 001036 000207 RTS PC
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5
382 .GLOBL INIT1IDENTS
383 001040 INIT1IDENTS:
384 001040 162706 000016 SUB #16,SP
385 001044 004767 000000G JSR PC,$B75
386 001050 004767 000000G JSR PC,$B127
387 001054 005046 CLR -(SP)
388 001056 011603 L5: MOV @SP,R3
389 001060 020327 000032 CMP R3,#32
390 001064 101402 BLOS .+6
391 001066 004767 000000G JSR PC,$B43
392 001072 006303 ASL R3
393 001074 005063 005014' CLR $G$+5014(R3)
394 001100 005216 INC @SP
395 001102 021627 000032 CMP @SP,#32
396 001106 003763 BLE L5
397 001110 005726 L6: TST (SP)+
398 001112 012737 000012 003726' MOV #12,@#$G$+3726
399 001120 012737 000024 003730' MOV #24,@#$G$+3730
400 001126 005037 004612' CLR @#$G$+4612
401 001132 005746 TST -(SP)
402 001134 012703 000012' MOV #$CONST+12,R3
403 001140 012702 000005 MOV #5,R2
404 001144 014346 L32763: MOV -(R3),-(SP)
405 001146 077202 SOB R2,L32763
406 001150 004767 177154 JSR PC,P9 ;DIMMAKE
407 001154 012637 005262' MOV (SP)+,@#$G$+5262
408 001160 001002 BNE .+6
409 001162 004767 000000G JSR PC,$B47
410 001166 013703 005262' MOV @#$G$+5262,R3
411 001172 005763 000004 TST 4(R3)
412 001176 001002 BNE .+6
413 001200 004767 000000G JSR PC,$B47
414 001204 016303 000004 MOV 4(R3),R3
415 001210 005763 000004 TST 4(R3)
416 001214 001002 BNE .+6
417 001216 004767 000000G JSR PC,$B47
418 001222 005746 TST -(SP)
419 001224 004767 000000G JSR PC,NEWSTRNG
420 .GLOBL NEWSTRNG
421 001230 012673 000004 MOV (SP)+,@4(R3)
422 001234 005737 005262' TST @#$G$+5262
423 001240 001002 BNE .+6
424 001242 004767 000000G JSR PC,$B47
425 001246 013703 005262' MOV @#$G$+5262,R3
426 001252 005763 000004 TST 4(R3)
427 001256 001002 BNE .+6
428 001260 004767 000000G JSR PC,$B47
429 001264 016303 000004 MOV 4(R3),R3
430 001270 005763 000004 TST 4(R3)
431 001274 001002 BNE .+6
432 001276 004767 000000G JSR PC,$B47
433 001302 005773 000004 TST @4(R3)
434 001306 001002 BNE .+6
435 001310 004767 000000G JSR PC,$B47
436 001314 017302 000004 MOV @4(R3),R2
437 001320 062702 000002 ADD #2,R2
438 001324 012701 000012' MOV #$CONST+12,R1
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-1
439 001330 012700 000012 MOV #12,R0
440 001334 112122 L32762: MOVB (R1)+,(R2)+
441 001336 077002 SOB R0,L32762
442 001340 012763 000015 000002 MOV #15,2(R3)
443 001346 005746 TST -(SP)
444 001350 012703 000036' MOV #$CONST+36,R3
445 001354 012702 000005 MOV #5,R2
446 001360 014346 L32761: MOV -(R3),-(SP)
447 001362 077202 SOB R2,L32761
448 001364 004767 176740 JSR PC,P9 ;DIMMAKE
449 001370 012637 005270' MOV (SP)+,@#$G$+5270
450 001374 001002 BNE .+6
451 001376 004767 000000G JSR PC,$B47
452 001402 013703 005270' MOV @#$G$+5270,R3
453 001406 005763 000014 TST 14(R3)
454 001412 001002 BNE .+6
455 001414 004767 000000G JSR PC,$B47
456 001420 016303 000014 MOV 14(R3),R3
457 001424 012763 000100 000010 MOV #100,10(R3)
458 001432 005746 TST -(SP)
459 001434 012703 000050' MOV #$CONST+50,R3
460 001440 012702 000005 MOV #5,R2
461 001444 014346 L32760: MOV -(R3),-(SP)
462 001446 077202 SOB R2,L32760
463 001450 004767 176654 JSR PC,P9 ;DIMMAKE
464 001454 012637 005264' MOV (SP)+,@#$G$+5264
465 001460 001002 BNE .+6
466 001462 004767 000000G JSR PC,$B47
467 001466 013703 005264' MOV @#$G$+5264,R3
468 001472 005763 000014 TST 14(R3)
469 001476 001002 BNE .+6
470 001500 004767 000000G JSR PC,$B47
471 001504 016303 000014 MOV 14(R3),R3
472 001510 012763 000100 000006 MOV #100,6(R3)
473 001516 005746 TST -(SP)
474 001520 012703 000062' MOV #$CONST+62,R3
475 001524 012702 000005 MOV #5,R2
476 001530 014346 L32759: MOV -(R3),-(SP)
477 001532 077202 SOB R2,L32759
478 001534 004767 176570 JSR PC,P9 ;DIMMAKE
479 001540 012637 005266' MOV (SP)+,@#$G$+5266
480 001544 001002 BNE .+6
481 001546 004767 000000G JSR PC,$B47
482 001552 013703 005266' MOV @#$G$+5266,R3
483 001556 005763 000014 TST 14(R3)
484 001562 001002 BNE .+6
485 001564 004767 000000G JSR PC,$B47
486 001570 016303 000014 MOV 14(R3),R3
487 001574 012763 000100 000004 MOV #100,4(R3)
488 001602 005746 TST -(SP)
489 001604 012703 000074' MOV #$CONST+74,R3
490 001610 012702 000005 MOV #5,R2
491 001614 014346 L32758: MOV -(R3),-(SP)
492 001616 077202 SOB R2,L32758
493 001620 004767 176504 JSR PC,P9 ;DIMMAKE
494 001624 012637 005272' MOV (SP)+,@#$G$+5272
495 001630 001002 BNE .+6
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-2
496 001632 004767 000000G JSR PC,$B47
497 001636 013703 005272' MOV @#$G$+5272,R3
498 001642 005763 000014 TST 14(R3)
499 001646 001002 BNE .+6
500 001650 004767 000000G JSR PC,$B47
501 001654 016303 000014 MOV 14(R3),R3
502 001660 012763 000100 000012 MOV #100,12(R3)
503 001666 005746 TST -(SP)
504 001670 012703 000106' MOV #$CONST+106,R3
505 001674 012702 000005 MOV #5,R2
506 001700 014346 L32757: MOV -(R3),-(SP)
507 001702 077202 SOB R2,L32757
508 001704 004767 176420 JSR PC,P9 ;DIMMAKE
509 001710 012637 005274' MOV (SP)+,@#$G$+5274
510 001714 001002 BNE .+6
511 001716 004767 000000G JSR PC,$B47
512 001722 013703 005274' MOV @#$G$+5274,R3
513 001726 005763 000014 TST 14(R3)
514 001732 001002 BNE .+6
515 001734 004767 000000G JSR PC,$B47
516 001740 016303 000014 MOV 14(R3),R3
517 001744 012763 000100 000012 MOV #100,12(R3)
518 001752 012763 000100 000006 MOV #100,6(R3)
519 001760 005746 TST -(SP)
520 001762 012703 000120' MOV #$CONST+120,R3
521 001766 012702 000005 MOV #5,R2
522 001772 014346 L32756: MOV -(R3),-(SP)
523 001774 077202 SOB R2,L32756
524 001776 004767 176326 JSR PC,P9 ;DIMMAKE
525 002002 012637 005276' MOV (SP)+,@#$G$+5276
526 002006 001002 BNE .+6
527 002010 004767 000000G JSR PC,$B47
528 002014 013703 005276' MOV @#$G$+5276,R3
529 002020 005763 000014 TST 14(R3)
530 002024 001002 BNE .+6
531 002026 004767 000000G JSR PC,$B47
532 002032 016303 000014 MOV 14(R3),R3
533 002036 012763 177700 000004 MOV #177700,4(R3)
534 002044 012763 000100 000006 MOV #100,6(R3)
535 002052 005746 TST -(SP)
536 002054 012703 000132' MOV #$CONST+132,R3
537 002060 012702 000005 MOV #5,R2
538 002064 014346 L32755: MOV -(R3),-(SP)
539 002066 077202 SOB R2,L32755
540 002070 004767 176234 JSR PC,P9 ;DIMMAKE
541 002074 012637 005300' MOV (SP)+,@#$G$+5300
542 002100 001002 BNE .+6
543 002102 004767 000000G JSR PC,$B47
544 002106 013703 005300' MOV @#$G$+5300,R3
545 002112 005763 000004 TST 4(R3)
546 002116 001002 BNE .+6
547 002120 004767 000000G JSR PC,$B47
548 002124 016303 000004 MOV 4(R3),R3
549 002130 005763 000004 TST 4(R3)
550 002134 001002 BNE .+6
551 002136 004767 000000G JSR PC,$B47
552 002142 005746 TST -(SP)
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-3
553 002144 004767 000000G JSR PC,NEWSTRNG
554 .GLOBL NEWSTRNG
555 002150 012673 000004 MOV (SP)+,@4(R3)
556 002154 005737 005300' TST @#$G$+5300
557 002160 001002 BNE .+6
558 002162 004767 000000G JSR PC,$B47
559 002166 013703 005300' MOV @#$G$+5300,R3
560 002172 010346 MOV R3,-(SP)
561 002174 005763 000004 TST 4(R3)
562 002200 001002 BNE .+6
563 002202 004767 000000G JSR PC,$B47
564 002206 016302 000004 MOV 4(R3),R2
565 002212 005762 000004 TST 4(R2)
566 002216 001002 BNE .+6
567 002220 004767 000000G JSR PC,$B47
568 002224 005772 000004 TST @4(R2)
569 002230 001002 BNE .+6
570 002232 004767 000000G JSR PC,$B47
571 002236 017201 000004 MOV @4(R2),R1
572 002242 062701 000002 ADD #2,R1
573 002246 012700 000132' MOV #$CONST+132,R0
574 002252 012703 000012 MOV #12,R3
575 002256 112021 L32754: MOVB (R0)+,(R1)+
576 002260 077302 SOB R3,L32754
577 002262 012762 000020 000002 MOV #20,2(R2)
578 002270 012603 MOV (SP)+,R3
579 002272 005763 000014 TST 14(R3)
580 002276 001002 BNE .+6
581 002300 004767 000000G JSR PC,$B47
582 002304 016303 000014 MOV 14(R3),R3
583 002310 012763 177700 000004 MOV #177700,4(R3)
584 002316 012763 000100 000010 MOV #100,10(R3)
585 002324 005746 TST -(SP)
586 002326 004767 000000G JSR PC,NEWNODE
587 .GLOBL NEWNODE
588 002332 012637 005302' MOV (SP)+,@#$G$+5302
589 002336 001002 BNE .+6
590 002340 004767 000000G JSR PC,$B47
591 002344 013703 005302' MOV @#$G$+5302,R3
592 002350 005013 CLR @R3
593 002352 112763 000041 000002 MOVB #41,2(R3)
594 002360 005063 000004 CLR 4(R3)
595 002364 012763 177700 000006 MOV #177700,6(R3)
596 002372 005063 000010 CLR 10(R3)
597 002376 012763 000100 000012 MOV #100,12(R3)
598 002404 005746 TST -(SP)
599 002406 004767 000000G JSR PC,NEWNODE
600 .GLOBL NEWNODE
601 002412 012637 005304' MOV (SP)+,@#$G$+5304
602 002416 001002 BNE .+6
603 002420 004767 000000G JSR PC,$B47
604 002424 013703 005304' MOV @#$G$+5304,R3
605 002430 005013 CLR @R3
606 002432 112763 000041 000002 MOVB #41,2(R3)
607 002440 005063 000004 CLR 4(R3)
608 002444 012763 000100 000006 MOV #100,6(R3)
609 002452 012763 177700 000010 MOV #177700,10(R3)
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-4
610 002460 012763 000100 000012 MOV #100,12(R3)
611 002466 005037 005230' CLR @#$G$+5230
612 002472 005746 TST -(SP)
613 002474 004767 000000G JSR PC,NEWSTRNG
614 .GLOBL NEWSTRNG
615 002500 012603 MOV (SP)+,R3
616 002502 010366 000030 MOV R3,30(SP)
617 002506 001002 BNE .+6
618 002510 004767 000000G JSR PC,$B47
619 002514 016602 000030 MOV 30(SP),R2
620 002520 062702 000002 ADD #2,R2
621 002524 012701 000144' MOV #$CONST+144,R1
622 002530 012700 000012 MOV #12,R0
623 002534 112122 L32753: MOVB (R1)+,(R2)+
624 002536 077002 SOB R0,L32753
625 002540 005746 TST -(SP)
626 002542 012702 000170' MOV #$CONST+170,R2
627 002546 012701 000005 MOV #5,R1
628 002552 014246 L32752: MOV -(R2),-(SP)
629 002554 077102 SOB R1,L32752
630 002556 112746 000006 MOVB #6,-(SP)
631 002562 013746 005264' MOV @#$G$+5264,-(SP)
632 002566 005046 CLR -(SP)
633 002570 004767 176006 JSR PC,P10 ;IDMAKE
634 002574 012605 MOV (SP)+,R5
635 002576 005746 TST -(SP)
636 002600 012702 000202' MOV #$CONST+202,R2
637 002604 012701 000005 MOV #5,R1
638 002610 014246 L32751: MOV -(R2),-(SP)
639 002612 077102 SOB R1,L32751
640 002614 112746 000002 MOVB #2,-(SP)
641 002620 013746 005262' MOV @#$G$+5262,-(SP)
642 002624 012746 000001 MOV #1,-(SP)
643 002630 004767 175746 JSR PC,P10 ;IDMAKE
644 002634 012605 MOV (SP)+,R5
645 002636 005746 TST -(SP)
646 002640 012702 000214' MOV #$CONST+214,R2
647 002644 012701 000005 MOV #5,R1
648 002650 014246 L32750: MOV -(R2),-(SP)
649 002652 077102 SOB R1,L32750
650 002654 112746 000002 MOVB #2,-(SP)
651 002660 013746 005264' MOV @#$G$+5264,-(SP)
652 002664 012746 000002 MOV #2,-(SP)
653 002670 004767 175706 JSR PC,P10 ;IDMAKE
654 002674 012605 MOV (SP)+,R5
655 002676 005746 TST -(SP)
656 002700 012702 000226' MOV #$CONST+226,R2
657 002704 012701 000005 MOV #5,R1
658 002710 014246 L32749: MOV -(R2),-(SP)
659 002712 077102 SOB R1,L32749
660 002714 112746 000002 MOVB #2,-(SP)
661 002720 013746 005262' MOV @#$G$+5262,-(SP)
662 002724 012746 000003 MOV #3,-(SP)
663 002730 004767 175646 JSR PC,P10 ;IDMAKE
664 002734 012605 MOV (SP)+,R5
665 002736 001002 BNE .+6
666 002740 004767 000000G JSR PC,$B47
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-5
667 002744 005765 000004 TST 4(R5)
668 002750 001002 BNE .+6
669 002752 004767 000000G JSR PC,$B47
670 002756 010375 000004 MOV R3,@4(R5)
671 002762 012765 000013 000002 MOV #13,2(R5)
672 002770 005746 TST -(SP)
673 002772 012702 000240' MOV #$CONST+240,R2
674 002776 012701 000005 MOV #5,R1
675 003002 014246 L32748: MOV -(R2),-(SP)
676 003004 077102 SOB R1,L32748
677 003006 112746 000006 MOVB #6,-(SP)
678 003012 013746 005264' MOV @#$G$+5264,-(SP)
679 003016 012746 000004 MOV #4,-(SP)
680 003022 004767 175554 JSR PC,P10 ;IDMAKE
681 003026 012605 MOV (SP)+,R5
682 003030 005746 TST -(SP)
683 003032 012702 000252' MOV #$CONST+252,R2
684 003036 012701 000005 MOV #5,R1
685 003042 014246 L32747: MOV -(R2),-(SP)
686 003044 077102 SOB R1,L32747
687 003046 112746 000002 MOVB #2,-(SP)
688 003052 013746 005262' MOV @#$G$+5262,-(SP)
689 003056 012746 000005 MOV #5,-(SP)
690 003062 004767 175514 JSR PC,P10 ;IDMAKE
691 003066 012605 MOV (SP)+,R5
692 003070 005746 TST -(SP)
693 003072 012702 000264' MOV #$CONST+264,R2
694 003076 012701 000005 MOV #5,R1
695 003102 014246 L32746: MOV -(R2),-(SP)
696 003104 077102 SOB R1,L32746
697 003106 112746 000002 MOVB #2,-(SP)
698 003112 013746 005264' MOV @#$G$+5264,-(SP)
699 003116 012746 000006 MOV #6,-(SP)
700 003122 004767 175454 JSR PC,P10 ;IDMAKE
701 003126 012605 MOV (SP)+,R5
702 003130 005746 TST -(SP)
703 003132 012702 000276' MOV #$CONST+276,R2
704 003136 012701 000005 MOV #5,R1
705 003142 014246 L32745: MOV -(R2),-(SP)
706 003144 077102 SOB R1,L32745
707 003146 112746 000002 MOVB #2,-(SP)
708 003152 013746 005262' MOV @#$G$+5262,-(SP)
709 003156 012746 000007 MOV #7,-(SP)
710 003162 004767 175414 JSR PC,P10 ;IDMAKE
711 003166 012605 MOV (SP)+,R5
712 003170 001002 BNE .+6
713 003172 004767 000000G JSR PC,$B47
714 003176 005765 000004 TST 4(R5)
715 003202 001002 BNE .+6
716 003204 004767 000000G JSR PC,$B47
717 003210 010375 000004 MOV R3,@4(R5)
718 003214 012765 000013 000002 MOV #13,2(R5)
719 003222 005746 TST -(SP)
720 003224 012703 000310' MOV #$CONST+310,R3
721 003230 012702 000005 MOV #5,R2
722 003234 014346 L32744: MOV -(R3),-(SP)
723 003236 077202 SOB R2,L32744
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-6
724 003240 112746 000002 MOVB #2,-(SP)
725 003244 013746 005262' MOV @#$G$+5262,-(SP)
726 003250 012746 000010 MOV #10,-(SP)
727 003254 004767 175322 JSR PC,P10 ;IDMAKE
728 003260 012605 MOV (SP)+,R5
729 003262 005746 TST -(SP)
730 003264 012703 000322' MOV #$CONST+322,R3
731 003270 012702 000005 MOV #5,R2
732 003274 014346 L32743: MOV -(R3),-(SP)
733 003276 077202 SOB R2,L32743
734 003300 112746 000002 MOVB #2,-(SP)
735 003304 013746 005262' MOV @#$G$+5262,-(SP)
736 003310 012746 000010 MOV #10,-(SP)
737 003314 004767 175262 JSR PC,P10 ;IDMAKE
738 003320 012605 MOV (SP)+,R5
739 003322 001002 BNE .+6
740 003324 004767 000000G JSR PC,$B47
741 003330 005765 000004 TST 4(R5)
742 003334 001002 BNE .+6
743 003336 004767 000000G JSR PC,$B47
744 003342 005746 TST -(SP)
745 003344 004767 000000G JSR PC,NEWSTRNG
746 .GLOBL NEWSTRNG
747 003350 012675 000004 MOV (SP)+,@4(R5)
748 003354 005765 000004 TST 4(R5)
749 003360 001002 BNE .+6
750 003362 004767 000000G JSR PC,$B47
751 003366 005775 000004 TST @4(R5)
752 003372 001002 BNE .+6
753 003374 004767 000000G JSR PC,$B47
754 003400 017503 000004 MOV @4(R5),R3
755 003404 062703 000002 ADD #2,R3
756 003410 012702 000322' MOV #$CONST+322,R2
757 003414 012701 000012 MOV #12,R1
758 003420 112223 L32742: MOVB (R2)+,(R3)+
759 003422 077102 SOB R1,L32742
760 003424 012765 000014 000002 MOV #14,2(R5)
761 003432 005737 005230' TST @#$G$+5230
762 003436 001002 BNE .+6
763 003440 004767 000000G JSR PC,$B47
764 003444 013703 005230' MOV @#$G$+5230,R3
765 003450 011337 005230' MOV @R3,@#$G$+5230
766 003454 005746 TST -(SP)
767 003456 012703 000346' MOV #$CONST+346,R3
768 003462 012702 000005 MOV #5,R2
769 003466 014346 L32741: MOV -(R3),-(SP)
770 003470 077202 SOB R2,L32741
771 003472 112746 000002 MOVB #2,-(SP)
772 003476 013746 005262' MOV @#$G$+5262,-(SP)
773 003502 012746 000011 MOV #11,-(SP)
774 003506 004767 175070 JSR PC,P10 ;IDMAKE
775 003512 012605 MOV (SP)+,R5
776 003514 001002 BNE .+6
777 003516 004767 000000G JSR PC,$B47
778 003522 005765 000004 TST 4(R5)
779 003526 001002 BNE .+6
780 003530 004767 000000G JSR PC,$B47
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-7
781 003534 005746 TST -(SP)
782 003536 004767 000000G JSR PC,NEWSTRNG
783 .GLOBL NEWSTRNG
784 003542 012675 000004 MOV (SP)+,@4(R5)
785 003546 005765 000004 TST 4(R5)
786 003552 001002 BNE .+6
787 003554 004767 000000G JSR PC,$B47
788 003560 005775 000004 TST @4(R5)
789 003564 001002 BNE .+6
790 003566 004767 000000G JSR PC,$B47
791 003572 017503 000004 MOV @4(R5),R3
792 003576 062703 000002 ADD #2,R3
793 003602 012702 000346' MOV #$CONST+346,R2
794 003606 012701 000012 MOV #12,R1
795 003612 112223 L32740: MOVB (R2)+,(R3)+
796 003614 077102 SOB R1,L32740
797 003616 012765 000014 000002 MOV #14,2(R5)
798 003624 005746 TST -(SP)
799 003626 012703 000372' MOV #$CONST+372,R3
800 003632 012702 000005 MOV #5,R2
801 003636 014346 L32739: MOV -(R3),-(SP)
802 003640 077202 SOB R2,L32739
803 003642 112746 000006 MOVB #6,-(SP)
804 003646 013746 005264' MOV @#$G$+5264,-(SP)
805 003652 012746 000012 MOV #12,-(SP)
806 003656 004767 174720 JSR PC,P10 ;IDMAKE
807 003662 012605 MOV (SP)+,R5
808 003664 005746 TST -(SP)
809 003666 012703 000404' MOV #$CONST+404,R3
810 003672 012702 000005 MOV #5,R2
811 003676 014346 L32738: MOV -(R3),-(SP)
812 003700 077202 SOB R2,L32738
813 003702 112746 000006 MOVB #6,-(SP)
814 003706 013746 005264' MOV @#$G$+5264,-(SP)
815 003712 012746 000013 MOV #13,-(SP)
816 003716 004767 174660 JSR PC,P10 ;IDMAKE
817 003722 012605 MOV (SP)+,R5
818 003724 001002 BNE .+6
819 003726 004767 000000G JSR PC,$B47
820 003732 005765 000004 TST 4(R5)
821 003736 001002 BNE .+6
822 003740 004767 000000G JSR PC,$B47
823 003744 005746 TST -(SP)
824 003746 004767 000000G JSR PC,NEWSTRNG
825 .GLOBL NEWSTRNG
826 003752 012675 000004 MOV (SP)+,@4(R5)
827 003756 005765 000004 TST 4(R5)
828 003762 001002 BNE .+6
829 003764 004767 000000G JSR PC,$B47
830 003770 005775 000004 TST @4(R5)
831 003774 001002 BNE .+6
832 003776 004767 000000G JSR PC,$B47
833 004002 017503 000004 MOV @4(R5),R3
834 004006 062703 000002 ADD #2,R3
835 004012 012702 000404' MOV #$CONST+404,R2
836 004016 012701 000012 MOV #12,R1
837 004022 112223 L32737: MOVB (R2)+,(R3)+
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-8
838 004024 077102 SOB R1,L32737
839 004026 012765 000014 000002 MOV #14,2(R5)
840 004034 005746 TST -(SP)
841 004036 012703 000430' MOV #$CONST+430,R3
842 004042 012702 000005 MOV #5,R2
843 004046 014346 L32736: MOV -(R3),-(SP)
844 004050 077202 SOB R2,L32736
845 004052 112746 000002 MOVB #2,-(SP)
846 004056 013746 005264' MOV @#$G$+5264,-(SP)
847 004062 012746 000014 MOV #14,-(SP)
848 004066 004767 174510 JSR PC,P10 ;IDMAKE
849 004072 012605 MOV (SP)+,R5
850 004074 005746 TST -(SP)
851 004076 012703 000442' MOV #$CONST+442,R3
852 004102 012702 000005 MOV #5,R2
853 004106 014346 L32735: MOV -(R3),-(SP)
854 004110 077202 SOB R2,L32735
855 004112 112746 000002 MOVB #2,-(SP)
856 004116 013746 005262' MOV @#$G$+5262,-(SP)
857 004122 012746 000015 MOV #15,-(SP)
858 004126 004767 174450 JSR PC,P10 ;IDMAKE
859 004132 012605 MOV (SP)+,R5
860 004134 005746 TST -(SP)
861 004136 012703 000454' MOV #$CONST+454,R3
862 004142 012702 000005 MOV #5,R2
863 004146 014346 L32734: MOV -(R3),-(SP)
864 004150 077202 SOB R2,L32734
865 004152 112746 000006 MOVB #6,-(SP)
866 004156 013746 005264' MOV @#$G$+5264,-(SP)
867 004162 012746 000016 MOV #16,-(SP)
868 004166 004767 174410 JSR PC,P10 ;IDMAKE
869 004172 012605 MOV (SP)+,R5
870 004174 005746 TST -(SP)
871 004176 012703 000466' MOV #$CONST+466,R3
872 004202 012702 000005 MOV #5,R2
873 004206 014346 L32733: MOV -(R3),-(SP)
874 004210 077202 SOB R2,L32733
875 004212 112746 000006 MOVB #6,-(SP)
876 004216 013746 005264' MOV @#$G$+5264,-(SP)
877 004222 012746 000017 MOV #17,-(SP)
878 004226 004767 174350 JSR PC,P10 ;IDMAKE
879 004232 012605 MOV (SP)+,R5
880 004234 005746 TST -(SP)
881 004236 012703 000500' MOV #$CONST+500,R3
882 004242 012702 000005 MOV #5,R2
883 004246 014346 L32732: MOV -(R3),-(SP)
884 004250 077202 SOB R2,L32732
885 004252 112746 000002 MOVB #2,-(SP)
886 004256 013746 005262' MOV @#$G$+5262,-(SP)
887 004262 012746 000020 MOV #20,-(SP)
888 004266 004767 174310 JSR PC,P10 ;IDMAKE
889 004272 012605 MOV (SP)+,R5
890 004274 001002 BNE .+6
891 004276 004767 000000G JSR PC,$B47
892 004302 005765 000004 TST 4(R5)
893 004306 001002 BNE .+6
894 004310 004767 000000G JSR PC,$B47
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 5-9
895 004314 005746 TST -(SP)
896 004316 004767 000000G JSR PC,NEWSTRNG
897 .GLOBL NEWSTRNG
898 004322 012675 000004 MOV (SP)+,@4(R5)
899 004326 005765 000004 TST 4(R5)
900 004332 001002 BNE .+6
901 004334 004767 000000G JSR PC,$B47
902 004340 005775 000004 TST @4(R5)
903 004344 001002 BNE .+6
904 004346 004767 000000G JSR PC,$B47
905 004352 017503 000004 MOV @4(R5),R3
906 004356 062703 000002 ADD #2,R3
907 004362 012702 000500' MOV #$CONST+500,R2
908 004366 012701 000012 MOV #12,R1
909 004372 112223 L32731: MOVB (R2)+,(R3)+
910 004374 077102 SOB R1,L32731
911 004376 012765 000014 000002 MOV #14,2(R5)
912 004404 013704 005230' MOV @#$G$+5230,R4
913 004410 005704 L7: TST R4
914 004412 001432 BEQ L9
915 004414 005704 TST R4
916 004416 001002 BNE .+6
917 004420 004767 000000G JSR PC,$B47
918 004424 011403 MOV @R4,R3
919 004426 010366 000022 MOV R3,22(SP)
920 004432 001412 BEQ L11
921 004434 005766 000022 TST 22(SP)
922 004440 001002 BNE .+6
923 004442 004767 000000G JSR PC,$B47
924 004446 016602 000022 MOV 22(SP),R2
925 004452 010462 000002 MOV R4,2(R2)
926 004456 000402 BR L12
927
928 004460 010437 005230' L11: MOV R4,@#$G$+5230
929 004464 016414 000002 L12: MOV 2(R4),@R4
930 004470 005064 000002 CLR 2(R4)
931 004474 010304 MOV R3,R4
932 004476 000744 BR L7
933
934 004500 004767 000000G L9: JSR PC,$B77
935 004504 062706 000016 ADD #16,SP
936 004510 000207 RTS PC
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 6
938 000001 .END
EINIT2 MACRO M1113 29-APR-83 13:38 PAGE 6-1
SYMBOL TABLE
AC0 =%000000 L32735 004106R L32750 002650R L32765 000352R $BITS 000000R 003
AC1 =%000001 L32736 004046R L32751 002610R L32766 000102R $B127 = ****** G
AC2 =%000002 L32737 004022R L32752 002552R L4 000164R $B43 = ****** G
AC3 =%000003 L32738 003676R L32753 002534R L5 001056R $B45 = ****** G
AC4 =%000004 L32739 003636R L32754 002256R L6 001110R $B47 = ****** G
AC5 =%000005 L32740 003612R L32755 002064R L7 004410R $B75 = ****** G
HASH = ****** G L32741 003466R L32756 001772R L9 004500R $B77 = ****** G
INIT1I 001040RG L32742 003420R L32757 001700R NEWIDE= ****** G $CODE 000000R
L11 004460R L32743 003274R L32758 001614R NEWNOD= ****** G $CONST 000000R 004
L12 004464R L32744 003234R L32759 001530R NEWSTR= ****** G $FILE = ****** G
L2 000120R L32745 003142R L32760 001444R NEWVAR= ****** G $G$ 000000R 002
L32731 004372R L32746 003102R L32761 001360R P10 000602R $RESR5= ****** G
L32732 004246R L32747 003042R L32762 001334R P8 000000R $RESR6= ****** G
L32733 004206R L32748 003002R L32763 001144R P9 000330R $VER = 000014 G
L32734 004146R L32749 002710R L32764 000622R
. ABS. 000000 000
004512 001
GLOBAL 005660 002
TABLES 000050 003
CONSTS 000512 004
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 436 WORDS ( 2 PAGES)
DYNAMIC MEMORY: 20238 WORDS ( 77 PAGES)
ELAPSED TIME: 00:00:21
EINIT2,EINIT2=EINIT2